home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / tprat5.arc / TPMONO5.DEF < prev    next >
Text File  |  1988-12-20  |  8KB  |  296 lines
  1. ;TP Rat 5.0 Monochromatic File
  2. ;Copyright (c) 1988
  3. ;by J. A. Smart
  4.  
  5. ;Revised 10-17-88
  6.  
  7. ;Define mouse buttons, movement and sensitivity
  8. Begin lb,rb,bb,LEFT,RIGHT,UP,DOWN,35,55
  9.  
  10. ;Match screen outputs for context sensitivity
  11. lb:           MATCH 14,27,, "Borland",mAUTOEXEC1,matlb2
  12. matlb2:       MATCH 2,4,, "┌",ENT,matlb3
  13. matlb3:       MATCH 2,20,, "┌",ENT,matlb4
  14. matlb4:       MATCH 2,27,, "┌",ENT,matlb5
  15. matlb5:       MATCH 2,38,, "┌",ENT,matlb6
  16. matlb6:       MATCH 2,47,, "┌",ENT,matlb7
  17. matlb7:       MATCH 2,50,, "┌",ENT,matlb8
  18. matlb8:       MATCH 1,5,normal, "F",ENT,matlb9
  19. matlb9:       MATCH 1,13,normal, "E",ENT,matlb10
  20. matlb10:      MATCH 1,21,normal, "R",ENT,matlb11
  21. matlb11:      MATCH 1,28,normal, "C",ENT,matlb12
  22. matlb12:      MATCH 1,39,normal, "O",ENT,matlb13
  23. matlb13:      MATCH 1,50,normal, "D",ENT,matlb14
  24. matlb14:      MATCH 1,59,normal, "B",ENT,matlb15
  25. matlb15:      MATCH 2,1,, "Option",mOPTIONS,matlb16
  26. matlb16:      MATCH 2,1,, "Replace",mREPLACE,F10
  27.  
  28.  
  29. rb:           MATCH 14,27,, "Borland",mAUTOEXEC2,matrb2
  30. matrb2:       MATCH 2,4,, "┌",ENT,matrb3
  31. matrb3:       MATCH 2,20,, "┌",ENT,matrb4
  32. matrb4:       MATCH 2,27,, "┌",ENT,matrb5
  33. matrb5:       MATCH 2,38,, "┌",ENT,matrb6
  34. matrb6:       MATCH 2,47,, "┌",ENT,matrb7
  35. matrb7:       MATCH 2,50,, "┌",ENT,matrb8
  36. matrb8:       MATCH 1,5,normal, "F",ENT,matrb9
  37. matrb9:       MATCH 1,13,normal, "E",ENT,matrb10
  38. matrb10:      MATCH 1,21,normal, "R",ENT,matrb11
  39. matrb11:      MATCH 1,28,normal, "C",ENT,matrb12
  40. matrb12:      MATCH 1,39,normal, "O",ENT,matrb13
  41. matrb13:      MATCH 1,50,normal, "D",ENT,matrb14
  42. matrb14:      MATCH 1,59,normal, "B",ENT,matrb15
  43. matrb15:      MATCH 2,1,, "Option",mOPTIONS,matrb16
  44. matrb16:      MATCH 2,1,, "Replace",mREPLACE,mEDITMENU
  45.  
  46. bb:           EXECUTE ESCAPE
  47.  
  48. ;Key defined
  49. ENT:        TYPE 013
  50. ESCAPE:     TYPE 027
  51. UP:         TYPE 0,72
  52. DOWN:       TYPE 0,80
  53. RIGHT:      TYPE 0,77
  54. LEFT:       TYPE 0,75
  55. CANCEL:     NOTHING
  56.  
  57. mAUTOEXEC1:  EXECUTE ESCAPE,F5,F,L,ENT
  58. mAUTOEXEC2:  EXECUTE ESCAPE,F,L,ENT
  59.  
  60. mEDITMENU:  POPUP,1,1,112,NORMAL
  61. TEXT "   Block   Search & Replace   Miscellaneous    «««  Turbo Pascal 5.0 Mouse  »»» "
  62. SELECT   1,4,5,mBLOCK
  63. SELECT   1,12,16,mSEARCH
  64. SELECT   1,31,13,mMISC
  65. PEND
  66.  
  67. mBLOCK:     POPUP,2,1,007,NORMAL
  68. TEXT "╔═══════════════════╗"
  69. TEXT "║   Block Function  ║"
  70. TEXT "╚╤═════════════════╤╝"
  71. TEXT " │Begin Block      │ "
  72. TEXT " │End Block        │ "
  73. TEXT " │Mark Single Word │ "
  74. TEXT " │Print Block      │ "
  75. TEXT " │Copy Block       │ "
  76. TEXT " │Delete Block     │ "
  77. TEXT " │Hide/Display     │ "
  78. TEXT " │Move Block       │ "
  79. TEXT " │Read from Disk   │ "
  80. TEXT " │Write to Disk    │ "
  81. TEXT " │     Cancel      │ "
  82. TEXT " └─────────────────┘ "
  83. SELECT    4,3,17,mBegBlo
  84. SELECT    5,3,17,mEndBlo
  85. SELECT    6,3,17,mMarSin
  86. SELECT    7,3,17,mPriBlo
  87. SELECT    8,3,17,mCopBlo
  88. SELECT    9,3,17,mDelBlo
  89. SELECT    10,3,17,mHidDis
  90. SELECT    11,3,17,mMovBlo
  91. SELECT    12,3,17,mReaDis
  92. SELECT    13,3,17,mWriDis
  93. SELECT    14,3,17,Cancel
  94. PEND
  95.  
  96. ;Blocks & Markers executes defined
  97. mBegBlo:       EXECUTE CtrlK,B
  98. mEndBlo:       EXECUTE CtrlK,K
  99. mMarSin:       EXECUTE CtrlK,T
  100. mPriBlo:       EXECUTE CtrlK,P
  101. mCopBlo:       EXECUTE CtrlK,C,mEndBlo
  102. mDelBlo:       EXECUTE CtrlK,Y
  103. mHidDis:       EXECUTE CtrlK,H
  104. mMovBlo:       EXECUTE CtrlK,V,mEndBlo
  105. mReaDis:       EXECUTE CtrlK,R
  106. mWriDis:       EXECUTE CtrlK,W
  107.  
  108. mSEARCH:    POPUP,2,12,007,NORMAL
  109. TEXT "╔═════════════════╗"
  110. TEXT "║  Find/Replace   ║"
  111. TEXT "╚╤═══════════════╤╝"
  112. TEXT " │Find Pattern   │ "
  113. TEXT " │Find & Replace │ "
  114. TEXT " │Repeat Find    │ "
  115. TEXT " │    Cancel     │ "
  116. TEXT " └───────────────┘ "
  117. SELECT    4,3,15,mFinPat
  118. SELECT    5,3,15,mFinRep
  119. SELECT    6,3,15,mRepFin
  120. SELECT    7,3,15,Cancel
  121. PEND
  122.  
  123. mOPTIONS:  POPUP,1,52,112,NORMAL
  124. Text "╒══════════════════╕"
  125. Text "│  Search Options  │"
  126. Text "╞══════════════════╡"
  127. Text "│ (U)ppercase      │"
  128. Text "│ (B)ackward       │"
  129. Text "│ (W)hole Words    │"
  130. Text "│ (G)lobal Search  │"
  131. Text "│ (L)ocal to Block │"
  132. Text "│ (N)o Prompting   │"
  133. Text "│ Enter <CR>       │"
  134. Text "│      CANCEL      │"
  135. Text "└──────────────────┘"
  136. Select  4,3,16,U
  137. Select  5,3,16,B
  138. Select  6,3,16,W
  139. Select  7,3,16,G
  140. Select  8,3,16,L
  141. Select  9,3,16,N
  142. Select  10,3,16,ENT
  143. Select  11,3,16,Cancel
  144. PEND
  145.  
  146. ;Execute Find choices
  147. mFinPat:       EXECUTE CtrlQ,F
  148. mFinRep:       EXECUTE CtrlQ,A
  149. mRepFin:       EXECUTE CtrlL
  150.  
  151. ;Replace prompting
  152. mREPLACE:  POPUP,2,17,011,normal
  153. TEXT " Yes  No "
  154. SELECT    1,2,3,Yes
  155. SELECT    1,7,2,No
  156. PEND
  157.  
  158. mMISC:     popup,2,33,007,normal
  159. TEXT "╔═══════════════════╗"
  160. TEXT "║   Miscellaneous   ║"
  161. TEXT "╚╤═════════════════╤╝"
  162. TEXT " │Abort Operation  │ "
  163. TEXT " │Autoindent       │ "
  164. TEXT " │Ctrl Char Prefix │ "
  165. TEXT " │Exit, No Save    │ "
  166. TEXT " │Find Place Mark  │ "
  167. TEXT " │Go To Error      │ "
  168. TEXT " │Ins Comp Directv │ "
  169. TEXT " │Language Help    │ "
  170. TEXT " │Optimal Fill     │ "
  171. TEXT " │Pair Braces Frwd │ "
  172. TEXT " │Pair Braces Bkwd │ "
  173. TEXT " │Repeat Last Find │ "
  174. TEXT " │Restore Line     │ "
  175. TEXT " │Save & Remain    │ "
  176. TEXT " │Tab Mode         │ "
  177. TEXT " │Unindent Toggle  │ "
  178. TEXT " │     CANCEL      │ "
  179. TEXT " └─────────────────┘ "
  180. SELECT    4,3,17,mAboOpe
  181. SELECT    5,3,17,mAutInd
  182. SELECT    6,3,17,mCtrCha
  183. SELECT    7,3,17,mExiNoS
  184. SELECT    8,3,17,mFinPla
  185. SELECT    9,3,17,mGoToEr
  186. SELECT    10,3,17,mInsCom
  187. SELECT    11,3,17,mLanHel
  188. SELECT    12,3,17,mOptFil
  189. SELECT    13,3,17,mPaiFrw
  190. SELECT    14,3,17,mPaiBkw
  191. SELECT    15,3,17,mRepLas
  192. SELECT    16,3,17,mResLin
  193. SELECT    17,3,17,mSavRem
  194. SELECT    18,3,17,mTabMod
  195. SELECT    19,3,17,mUniTog
  196. SELECT    20,3,17,CANCEL
  197. PEND
  198.  
  199. mAboOpe:     EXECUTE CtrlU
  200. mAutInd:     EXECUTE CtrlO,I
  201. mCtrCha:     EXECUTE CtrlP
  202. mExiNoS:     EXECUTE CtrlK,D
  203. mFinPla:     EXECUTE CtrlQ
  204. mGoToEr:     EXECUTE CtrlQ,W
  205. mInsCom:     EXECUTE CtrlO,O
  206. mLanHel:     EXECUTE CtrlF1
  207. mOptFil:     EXECUTE CtrlO,F
  208. mPaiFrw:     EXECUTE CtrlK,TYPE[
  209. mPaiBkw:     EXECUTE CtrlK,TYPE]
  210. mRepLas:     EXECUTE CtrlL
  211. mResLin:     EXECUTE CtrlQ,L
  212. mSavRem:     EXECUTE F2
  213. mTabMod:     EXECUTE CtrlO,T
  214. mUniTog:     EXECUTE CtrlO,U
  215.  
  216.  
  217. ;Alternate (macro) keys defined
  218. Alt1:     TYPE 0,120
  219. Alt2:     TYPE 0,121
  220. Alt3:     TYPE 0,122
  221. Alt4:     TYPE 0,123
  222. Alt5:     TYPE 0,124
  223. Alt6:     TYPE 0,125
  224. Alt7:     TYPE 0,126
  225. Alt8:     TYPE 0,127
  226. Alt9:     TYPE 0,128
  227.  
  228. ;Control keys defined
  229. CtrlA:   TYPE 01
  230. CtrlB:   TYPE 02
  231. CtrlC:   TYPE 03
  232. CtrlD:   TYPE 04
  233. CtrlE:   TYPE 05
  234. CtrlF:   TYPE 06
  235. CtrlG:   TYPE 07
  236. CtrlH:   TYPE 08
  237. CtrlI:   TYPE 09
  238. CtrlJ:   TYPE 10
  239. CtrlK:   TYPE 11
  240. CtrlL:   TYPE 12
  241. CtrlM:   TYPE 13
  242. CtrlN:   TYPE 14
  243. CtrlO:   TYPE 15
  244. CtrlP:   TYPE 16
  245. CtrlQ:   TYPE 17
  246. CtrlR:   TYPE 18
  247. CtrlS:   TYPE 19
  248. CtrlT:   TYPE 20
  249. CtrlU:   TYPE 21
  250. CtrlV:   TYPE 22
  251. CtrlW:   TYPE 23
  252. CtrlX:   TYPE 24
  253. CtrlY:   TYPE 25
  254. CtrlZ:   TYPE 26
  255. CtrlDel: TYPE 0,157
  256. CtrlF1:  TYPE 0,94
  257.  
  258. F1:      TYPE 0,59
  259. F2:      TYPE 0,60
  260. F3:      TYPE 0,61
  261. F5:      TYPE 0,63
  262. F10:     TYPE 0,68
  263. Yes:     TYPE "Y"
  264. No:      TYPE "N"
  265. A:       TYPE "A"
  266. B:       TYPE "B"
  267. C:       TYPE "C"
  268. D:       TYPE "D"
  269. E:       TYPE "E"
  270. F:       TYPE "F"
  271. G:       TYPE "G"
  272. H:       TYPE "H"
  273. I:       TYPE "I"
  274. J:       TYPE "J"
  275. K:       TYPE "K"
  276. L:       TYPE "L"
  277. M:       TYPE "M"
  278. N:       TYPE "N"
  279. O:       TYPE "O"
  280. P:       TYPE "P"
  281. Q:       TYPE "Q"
  282. R:       TYPE "R"
  283. S:       TYPE "S"
  284. T:       TYPE "T"
  285. U:       TYPE "U"
  286. V:       TYPE "V"
  287. W:       TYPE "W"
  288. X:       TYPE "X"
  289. Y:       TYPE "Y"
  290. Z:       TYPE "Z"
  291.  
  292. TYPE[:   TYPE "["
  293. TYPE]:   TYPE "]"
  294.  
  295. ;<< EOF >>
  296.